home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / amac33.arc / TOGL11.QM < prev    next >
Text File  |  1991-04-28  |  8KB  |  221 lines
  1. *                 Toggle Insert and AutoIndent Macros, v1.1c
  2. *                               TOGL11.QM
  3. *
  4. * Description:
  5. *
  6. *      Macro Toggle            Bytes   Keeps cursor position ?
  7. *       @0 - AutoIndent  On  TH  46    No, begline
  8. *       @9 - Insert      On  TH  16    No, moves right
  9. *       @8 - Insert      On  KW  26    No, moves right
  10. *       @7 - Insert      On  TF  21    Yes
  11. *       @6 - Insert      Off TF  21    Yes
  12.  
  13. *                            Authors........
  14. *                            TH-Tom Hoghsead
  15. *                            KW-Kyle Watkins
  16. *                            TF-Tim Farley
  17. * Version History:
  18. *       1.0     Initial version, Alt9 & 0
  19. *       1.1     Alt_6,7 & 8 added
  20. *       1.1a    Changed file name TOGGLE11 to TOGL11.
  21. *       1.1b    Modified this file documentation.
  22. *       1.1c    Modified this file documentation and added START.BAT.
  23. *               Changed TOGGLE file names to TOGL.
  24.  
  25. * For other macros, see ALLMACRO.INF.
  26.  
  27. * These macros require "QEdit and QMAC v2.1, February, 1990" or later.
  28. *
  29. * To BEGIN, just type "START TOGL" <Enter>. All pertinent files will be
  30. * loaded in the "Ring" for viewing, and TOGL11.MAC is read.
  31. * Alternatively, type "START TOGL 0" <Enter> and the disk copies of all
  32. * files in the "Ring" will be loaded ready for editing, saving time.
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40. *┌────────────────────────────────────┐
  41. *│  @0 Toggle AutoIndent ON if OFF    │
  42. *└────────────────────────────────────┘
  43. * Alt_0 is a macro to toggle AutoIndent ON if OFF. I don't have any use
  44. * for it but maybe somebody does - I leave AutoIndent ON all the time.
  45. * Alt_9, a macro to toggle Insert ON if OFF, prompted me to see if
  46. * AutoIndent could also be toggled ON if OFF. No effort was spent
  47. * optimizing Alt_0. Somebody may want to try that. If anybody can use
  48. * it, use and enjoy. There no tricks here, just taking advantage of
  49. * jtrue. By the way, AutoIndent can be toggled OFF if ON by replacing
  50. * jtrue with jfalse. Don't run with cursor line in macro below or the
  51. * ■'s in the comments will be found and things get messed up.
  52. *
  53. @0 macrobegin
  54.         setrmargin "3" return           * set line 3 chars
  55.         insertline                      * insertblank line for bot para
  56.         begline                         * go to begin of line
  57.         cursorright                     * insert space
  58.         insertline                      * insert 2nd blank line
  59.         #254                            * insert ■ on line in column 2
  60.         insertline                      * insert 3rd blank line
  61.         begline                         * go to begin of line
  62.         #254 #254                       * insert ■■ in column 1 & 2
  63.         insertline                      * insert blank line for top para
  64.         wrappara                        * format paragraph
  65.         setrmargin  "80" return         * reset right margin
  66.         cursorup                        * get cursor line on bot para
  67.         begline                         * go to begline
  68.         find #254 return return         * try to find ■
  69.  jtrue INDENTON:                        * if ■ in column 1, can't find
  70.         toggleindent                    * toggle AutoIndent ON
  71.  INDENTON:                              * begin clean up
  72.         delline                         * delete line ■
  73.         cursorup                        * cursor up to line ■■
  74.         delline                         * delete       line ■■
  75.         cursorup                        * cursor up to blank line
  76.         delline                         * delete blank line
  77.         delline                         * delete blank line
  78.         scrollup                        * reallign screen
  79. *
  80. * 46 bytes Sat  07-28-1990  18:33:31
  81.  
  82. * 1  
  83. * 2
  84. * 3  try Alt_0 here not above
  85. * 4
  86. * 5
  87. * 6
  88.  
  89.  
  90.  
  91. *┌───────────────────────────────┐
  92. *│ @9 toggles Insert ON if OFF   │
  93. *└───────────────────────────────┘
  94. *
  95. @9 macrobegin
  96.         insertline                     * insert test line
  97.         "a" cursorleft "a"             * insert "aa"
  98.         endline                        * if not at endline-insert is on
  99.  jtrue END:                            * if at endline    -insert is off
  100.         toggleinsert                   * toggle on if off
  101.  END:                                  *
  102.         delline                        * delete test line
  103. *
  104. * 16 bytes Fri  07-27-1990  22:44:42
  105.  
  106.  
  107.  
  108. *┌────────────────────────────────┐
  109. *│ @8 Toggle Insert ON if OFF     │
  110. *└────────────────────────────────┘
  111. * Here's an alternate but slightly longer version written by Kyle
  112. * Watkins of SemWare
  113. *
  114. @8 Macrobegin
  115.         Insertline
  116.         "x"
  117.  TESTINSERT:
  118.         Insertline
  119.         Cursorleft "a" Cursorleft "a"
  120.  Endline
  121.  Jtrue END:
  122.         Toggleinsert
  123.  END:
  124.         Delline
  125.         Endline
  126.         Delline
  127. *
  128. * 26 bytes Fri  07-27-1990  22:44:48
  129.  
  130. *       Replace jtrue in Alt_9 line 3 and Alt_8 line 8 with jfalse
  131. *       to toggle off.
  132.  
  133. * To: TOM HOGSHEAD                  Refer#: 9159
  134. * From: KYLE WATKINS                    Read: 07-30-90 (18:35)
  135. * Subj: POSSIBLE QEDIT CHANGES        Status: PUBLIC MESSAGE
  136. * Conf: MAIN board (0)             Read Type: GENERAL (A)
  137. *
  138. * Hi Tom,
  139. *    The macro has some steps in it which seem unneccesary -- but it takes
  140. * care of the case of being in column 1  or  column 512  AND it will
  141. * preserve the original cursor location (since it is taking care of all
  142. * possibilities, it does get involved -- but in most cases, as in yours,
  143. * It can be cut back a few bytes.)
  144. *   Also -- many thanks for the assorted macros you have written -- many
  145. * users will find them very useful.
  146. *                              --... ...--
  147. * .......Kyle Watkins (SemWare Technical Support)
  148. *
  149. * (H)elp, End of Message Command?
  150. *
  151. * Date: 07-30-90 (17:34)              Number: 9191 / 9206
  152. *   To: TOM HOGSHEAD                  Refer#: 9159
  153. * From: TIM FARLEY                      Read: NO
  154. * Subj: POSSIBLE QEDIT CHANGES        Status: PUBLIC MESSAGE
  155. * Conf: MAIN board (0)             Read Type: GENERAL (A)
  156. *
  157. * TH>@0 macrobegin
  158. * TH>        insertline           * insert test line
  159. * TH>        "a" cursorleft "a"   *
  160. * TH>        endline              * if not at endline-insert is on
  161. * TH> jtrue END:                  * if at endline    -insert is off
  162. * TH>        toggleinsert         * toggle on if off
  163. * TH> END:                        *
  164. * TH>        delline              * delete test line
  165. *
  166. * Neat macro, Tom!  However, it does have a slight side effect of
  167. * moving the current cursor position to the right.  Here are
  168. * versions that make sure to undo that:
  169.  
  170. *
  171. * SET INSERT ON
  172. *
  173. @7 macrobegin
  174.         insertline           * insert test line
  175.         "a" cursorleft "a"   *
  176.         endline              * if not at endline-insert is on
  177.  jtrue WASON:                * if at endline    -insert is off
  178.         toggleinsert         * toggle on it on
  179.         Jump WASOFF:         * and exit.
  180.  WASON:
  181.         cursorleft           * clean up cursor movement
  182.  WASOFF:
  183.         cursorleft           * clean up cursor movement
  184.         delline              * delete test line
  185. *
  186. * 21 bytes Mon  07-30-1990  19:15:36
  187.  
  188. *
  189. * SET INSERT OFF
  190. *
  191. @6 macrobegin
  192.         insertline           * insert test line
  193.         "a" cursorleft "a"   *
  194.         endline              * if not at endline-insert is on
  195.  jtrue WASON:                * if at endline    -insert is off
  196.         Jump WASOFF:
  197.  WASON:
  198.         toggleinsert         * toggle it off
  199.         cursorleft           * clean up cursor movement
  200.  WASOFF:
  201.         cursorleft           * clean up cursor movement
  202.         delline              * delete test line
  203. *
  204. * 21 bytes Mon  07-30-1990  19:16:01
  205.  
  206. * --Tim Farley
  207. *   Subject (Enter)=no change?
  208. *   Message Security (H)=help?
  209. * *
  210. *     Enter your text. (Enter) alone to end. (72 chars/line, 75 lines maximum)
  211. *    (------------------------------------------------------------------------)
  212. *  1: Tim,
  213. *  2: Thanks for the suggested improvements. I'll study off line.
  214. *  3: ..Tom
  215. *  4:
  216. *
  217. *
  218. * Saving Message # 9207.
  219. *
  220. *...Tom Hogshead  Wed  10-31-1990
  221.